home *** CD-ROM | disk | FTP | other *** search
/ Programmer Power Tools / Programmer Power Tools.iso / surfmodl / surfm203.arc / SURFSRC.ARC / CONTINUE.INC < prev    next >
Encoding:
Text File  |  1988-01-24  |  1.3 KB  |  40 lines
  1. procedure CONTINUE;
  2. { CONTINUE waits for a user keypress before continuing, with the exception
  3.   of the following keys which have special meaning:
  4.     P  -  Pauses until P is pressed again (provides protection against an
  5.           accidental keypress clearing the screen).
  6.     S  -  Calls an internal screen dump routine (not implemented).
  7.     F  -  Dumps the current screen image into a PIC file (not implemented).
  8. }
  9. var c: char;
  10.     Checkagain: boolean;
  11.  
  12. begin
  13.   stopstat;               { erase the graphics status line }
  14.  
  15.   Checkagain := TRUE;
  16.   while (Checkagain) do begin
  17.     while (NOT keypressed) do
  18.       c := ' ';
  19.     c := readkey;
  20.     c := upcase (c);
  21.     case c of
  22.       'P' : begin  { Pause for another P }
  23.               c := ' ';
  24.               while (c <> 'P') do begin
  25.                 repeat until keypressed;
  26.                 c := readkey;
  27.                 c := upcase (c);
  28.               end; {while}
  29.             end; {option P}
  30.       'S' : begin end; { insert a call to your screen dump here }
  31.       'F' : begin { Dump to a file }
  32.               if not savescrn ('surfmodl.pic') then
  33.                 write (chr(7));
  34.             end;
  35.       else
  36.         Checkagain := FALSE;
  37.     end {case}
  38.   end; { while Checkagain }
  39. end; { procedure CONTINUE }
  40.